home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / ARCHIVE / V12N10.ZIP;1 / VERBOS.ZIP / VBMBTEST.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-11-25  |  1.6 KB  |  61 lines
  1. Program VbMbTest;            {By Kurt Herzog, 6/10/92}
  2. {$R VBMB.RES}
  3. USES
  4.   VerbosMB,              {Verbose MessageBox Unit}
  5.   Strings,               {Nul-terminated string support}
  6.   WinTypes,              {Defines Windows API for Pascal}
  7.   WinProcs,              {Defines Func/Proc headers for API}
  8.   {$IFDEF VER70}
  9.   OWindows,              {Defines standard window Object types}
  10.   ODialogs;              {Defines standard dialog Object types}
  11.   {$ELSE}
  12.   WObjects;              {Defines all standard Object types}
  13.   {$ENDIF}
  14.  
  15. CONST
  16.   id_Tfirst = 001;   {String table IDs}
  17.   id_Tlast  = 015;
  18.  
  19. TYPE
  20.   ThisApplication = OBJECT(TApplication)
  21.     PROCEDURE       InitMainWindow; virtual;
  22.   END;
  23.  
  24.   PTestWindow  = ^TestWindow;
  25.   TestWindow   = OBJECT(TWindow)
  26.     PROCEDURE    wmLButtonUp(VAR Msg : TMessage); Virtual
  27.       wm_First + wm_LButtonUp;
  28.   END;
  29.  
  30.  
  31.   PROCEDURE TestWindow.wmLButtonUp(VAR msg : TMessage);
  32.   VAR
  33.     args         : RECORD
  34.       StringArg  : PChar;
  35.       LongIntArg : LongInt;
  36.       AnotherStr : PChar;
  37.       CharArg    : Char;
  38.       filler     : Char;
  39.       IntArg     : integer;
  40.     END;
  41.   BEGIN
  42.     args.StringArg  := '<< Insert this String >>';
  43.     args.LongIntArg := GetTickCount;
  44.     args.AnotherStr := 'Another string';
  45.     args.CharArg    := 'r';
  46.     args.IntArg     := -256;
  47.     VerboseMessage (HWindow, id_Tfirst, id_Tlast, args, mb_Ok);
  48.   END;
  49.  
  50.   PROCEDURE ThisApplication.InitMainWindow;
  51.   BEGIN
  52.     MainWindow := New(PTestWindow, Init(nil,
  53.       'Click for VerboseMB Test'));
  54.   END;
  55.  
  56. VAR ThisApp: ThisApplication;
  57. BEGIN
  58.   ThisApp.Init('VbMbTest');
  59.   Thisapp.Run;
  60.   ThisApp.Done;
  61. END.